object fmConfig: TfmConfig
  Left = 396
  Top = 156
  BorderStyle = bsNone
  Caption = 'Config Setting'
  ClientHeight = 534
  ClientWidth = 738
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pnForm: TPanel
    Left = 0
    Top = 0
    Width = 738
    Height = 534
    Align = alClient
    TabOrder = 0
    object Panel1: TPanel
      Left = 1
      Top = 1
      Width = 736
      Height = 50
      Align = alTop
      TabOrder = 0
      object sbEdit: TSpeedButton
        Left = 21
        Top = 2
        Width = 70
        Height = 44
        Hint = 'Edit Record'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          333333FFFFFFFFFFFFF333CCCCCCCCCCCC3337333333333333F3333CCCCCCCCC
          C3333373333333333F3333333CCCCCC3333333377333333FF33333333CCCCCC3
          333333377333333FF333333333CCCC3333333333373333F333333333333CC333
          3333333333733F33333333333333333333333333333773333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = sbEditClick
      end
      object sbPost: TSpeedButton
        Left = 94
        Top = 2
        Width = 70
        Height = 44
        Hint = 'Save Record'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFF0000000000000FFF8888888888888FF0EE00000088
          0E0FF8EE888888FFFE8FF0EE000000880E0FF8EE888888FFFE8FF0EE00000088
          0E0FF8EE888888FFFE8FF0EE000000000E0FF8EE888888888E8FF0EEEEEEEEEE
          EE0FF8EEEEEEEEEEEE8FF0EE00000000EE0FF8EE88888888EE8FF0E088888888
          0E0FF8E8333333338E8FF0E0888888880E0FF8E8388888838E8FF0E088888888
          0E0FF8E8388888838E8FF0E0888888880E0FF8E8388888838E8FF0E088888888
          000FF8E838888883888FF0E0888888880F0FF8E833333333808FF00000000000
          000FF88888888888888FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = sbPostClick
      end
      object sbCancel: TSpeedButton
        Left = 167
        Top = 2
        Width = 70
        Height = 44
        Hint = 'Cancel Record'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          333333FFF33333FFF33333CCC33333CCC33337333F3337333F3333CCC33333CC
          C33337333F3337333F3333CCCC333CCCC333373333F373333F333333CCC3CCCC
          3333337733373333F33333333CCCCC3333333333733333FF3333333333CCC333
          3333333337333F333333333333CCC3333333333337333F33333333333CCCCC33
          33333333733333FF33333333CCC3CCCC3333337733373333F33333CCCC333CCC
          C333373333F373333F3333CCC33333CCC33337333F3337333F3333CCC33333CC
          C33337333F3337333F3333333333333333333377733333777333}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = sbCancelClick
      end
      object sbExit: TSpeedButton
        Left = 276
        Top = 2
        Width = 70
        Height = 44
        Hint = 'Close Form'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
          03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
          0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
          0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
          0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
          0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
          0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
          0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
          0333337F777FFFFF7F3333000000000003333377777777777333}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = sbExitClick
      end
    end
    object GroupBox1: TGroupBox
      Left = 5
      Top = 77
      Width = 636
      Height = 248
      TabOrder = 1
      object lblCompName: TLabel
        Left = 10
        Top = 13
        Width = 67
        Height = 13
        Caption = 'Copany Name'
      end
      object lblCompNameOth: TLabel
        Left = 237
        Top = 13
        Width = 102
        Height = 13
        Caption = 'Copany Name (Other)'
      end
      object lblAdd1: TLabel
        Left = 11
        Top = 54
        Width = 46
        Height = 13
        Caption = 'Address 1'
      end
      object lblAdd1Oth: TLabel
        Left = 238
        Top = 54
        Width = 81
        Height = 13
        Caption = 'Address 1 (Other)'
      end
      object lblAdd2: TLabel
        Left = 11
        Top = 92
        Width = 47
        Height = 13
        Caption = 'Address 2'
      end
      object lblAdd2Oth: TLabel
        Left = 238
        Top = 92
        Width = 82
        Height = 13
        Caption = 'Address 2 (Other)'
      end
      object lblAdd3: TLabel
        Left = 13
        Top = 130
        Width = 47
        Height = 13
        Caption = 'Address 3'
      end
      object lblAdd3Oth: TLabel
        Left = 240
        Top = 130
        Width = 82
        Height = 13
        Caption = 'Address 3 (Other)'
      end
      object lblTel: TLabel
        Left = 13
        Top = 169
        Width = 18
        Height = 13
        Caption = 'Tel.'
      end
      object lblFax: TLabel
        Left = 195
        Top = 169
        Width = 23
        Height = 13
        Caption = 'FAX.'
      end
      object lblEmail: TLabel
        Left = 377
        Top = 169
        Width = 28
        Height = 13
        Caption = 'E-mail'
      end
      object lblContact: TLabel
        Left = 13
        Top = 207
        Width = 37
        Height = 13
        Caption = 'Contact'
      end
      object Label2: TLabel
        Left = 487
        Top = 16
        Width = 87
        Height = 13
        Caption = '80 * 80 pixel [bmp]'
      end
      object DBEdit2: TDBEdit
        Left = 10
        Top = 28
        Width = 225
        Height = 21
        DataField = 'compname'
        DataSource = dsConfig
        TabOrder = 0
        OnEnter = DBEdit2Enter
        OnExit = DBEdit2Exit
      end
      object DBEdit3: TDBEdit
        Left = 235
        Top = 28
        Width = 224
        Height = 21
        DataField = 'compnameoth'
        DataSource = dsConfig
        TabOrder = 1
        OnEnter = DBEdit2Enter
        OnExit = DBEdit2Exit
      end
      object DBEdit4: TDBEdit
        Left = 10
        Top = 67
        Width = 225
        Height = 21
        DataField = 'addr1'
        DataSource = dsConfig
        TabOrder = 2
        OnEnter = DBEdit2Enter
        OnExit = DBEdit2Exit
      end
      object DBEdit5: TDBEdit
        Left = 235
        Top = 67
        Width = 224
        Height = 21
        DataField = 'addroth1'
        DataSource = dsConfig
        TabOrder = 3
        OnEnter = DBEdit2Enter
        OnExit = DBEdit2Exit
      end
      object DBEdit6: TDBEdit
        Left = 10
        Top = 106
        Width = 225
        Height = 21
        DataField = 'addr2'
        DataSource = dsConfig
        TabOrder = 4
        OnEnter = DBEdit2Enter
        OnExit = DBEdit2Exit
      end
      object DBEdit7: TDBEdit
        Left = 235
        Top = 106
        Width = 224
        Height = 21
        DataField = 'addroth2'
        DataSource = dsConfig
        TabOrder = 5
        OnEnter = DBEdit2Enter
        OnExit = DBEdit2Exit
      end
      object DBEdit8: TDBEdit
        Left = 10
        Top = 144
        Width = 225
        Height = 21
        DataField = 'addr3'
        DataSource = dsConfig
        TabOrder = 6
        OnEnter = DBEdit2Enter
        OnExit = DBEdit2Exit
      end
      object DBEdit9: TDBEdit
        Left = 235
        Top = 144
        Width = 224
        Height = 21
        DataField = 'addroth3'
        DataSource = dsConfig
        TabOrder = 7
        OnEnter = DBEdit2Enter
        OnExit = DBEdit2Exit
      end
      object DBEdit10: TDBEdit
        Left = 10
        Top = 183
        Width = 180
        Height = 21
        DataField = 'phone'
        DataSource = dsConfig
        TabOrder = 8
        OnEnter = DBEdit2Enter
        OnExit = DBEdit2Exit
      end
      object DBEdit11: TDBEdit
        Left = 190
        Top = 183
        Width = 179
        Height = 21
        DataField = 'fax'
        DataSource = dsConfig
        TabOrder = 9
        OnEnter = DBEdit2Enter
        OnExit = DBEdit2Exit
      end
      object DBEdit12: TDBEdit
        Left = 369
        Top = 183
        Width = 256
        Height = 21
        DataField = 'email'
        DataSource = dsConfig
        TabOrder = 10
        OnEnter = DBEdit2Enter
        OnExit = DBEdit2Exit
      end
      object DBImage1: TEDBImage
        Left = 490
        Top = 30
        Width = 80
        Height = 78
        Hint = 'Popup menu'
        DataField = 'pict'
        DataSource = dsConfig
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 11
        ZoomToFit = False
      end
      object DBEdit13: TDBEdit
        Left = 10
        Top = 221
        Width = 212
        Height = 21
        DataField = 'contact'
        DataSource = dsConfig
        TabOrder = 12
        OnEnter = DBEdit2Enter
        OnExit = DBEdit2Exit
      end
    end
    object PageControl1: TPageControl
      Left = 1
      Top = 330
      Width = 717
      Height = 228
      ActivePage = TabSheet1
      TabOrder = 2
      object TabSheet1: TTabSheet
        Caption = 'General'
        object GroupBox3: TGroupBox
          Left = 3
          Top = 2
          Width = 401
          Height = 148
          TabOrder = 0
          object lblReport: TLabel
            Left = 13
            Top = 14
            Width = 57
            Height = 13
            Caption = 'Report Path'
          end
          object sbRepPath: TSpeedButton
            Left = 374
            Top = 27
            Width = 23
            Height = 22
            Caption = '...'
            OnClick = sbRepPathClick
          end
          object lblCalendar: TLabel
            Left = 15
            Top = 54
            Width = 69
            Height = 13
            Caption = 'Calendar Type'
          end
          object lblShortDate: TLabel
            Left = 96
            Top = 54
            Width = 86
            Height = 13
            Caption = 'Short Date Format'
          end
          object Label1: TLabel
            Left = 219
            Top = 53
            Width = 68
            Height = 13
            Caption = 'Thumnail Row'
          end
          object lblLang: TLabel
            Left = 16
            Top = 96
            Width = 48
            Height = 13
            Caption = 'Language'
          end
          object lblDayExp: TLabel
            Left = 79
            Top = 96
            Width = 56
            Height = 13
            Caption = 'Days Expire'
          end
          object edRepPath: TDBEdit
            Left = 5
            Top = 28
            Width = 367
            Height = 21
            DataField = 'reppath'
            DataSource = dsConfig
            TabOrder = 0
            OnEnter = DBEdit2Enter
            OnExit = DBEdit2Exit
          end
          object DBComboBox1: TDBComboBox
            Left = 6
            Top = 69
            Width = 80
            Height = 22
            Style = csOwnerDrawFixed
            DataField = 'calendartype'
            DataSource = dsConfig
            ItemHeight = 16
            Items.Strings = (
              'CE'
              'BD')
            TabOrder = 1
            OnEnter = DBEdit2Enter
            OnExit = DBEdit2Exit
          end
          object DBEdit1: TDBEdit
            Left = 93
            Top = 68
            Width = 121
            Height = 21
            DataField = 'datefm'
            DataSource = dsConfig
            TabOrder = 2
            OnEnter = DBEdit2Enter
            OnExit = DBEdit2Exit
          end
          object DBComboBox2: TDBComboBox
            Left = 218
            Top = 68
            Width = 80
            Height = 22
            Style = csOwnerDrawFixed
            DataField = 'THUM_ROW'
            DataSource = dsConfig
            ItemHeight = 16
            Items.Strings = (
              '1'
              '2'
              '3')
            TabOrder = 3
            OnEnter = DBEdit2Enter
            OnExit = DBEdit2Exit
          end
          object DBComboBox4: TDBComboBox
            Left = 7
            Top = 110
            Width = 62
            Height = 21
            DataField = 'deflang'
            DataSource = dsConfig
            ItemHeight = 13
            Items.Strings = (
              'EN'
              'TH')
            TabOrder = 4
            OnEnter = DBEdit2Enter
            OnExit = DBEdit2Exit
          end
          object DBEdit16: TDBEdit
            Left = 76
            Top = 110
            Width = 69
            Height = 21
            DataField = 'datevalexp'
            DataSource = dsConfig
            TabOrder = 5
            OnEnter = DBEdit2Enter
            OnExit = DBEdit2Exit
          end
        end
        object GroupBox2: TGroupBox
          Left = 408
          Top = 2
          Width = 229
          Height = 147
          Caption = 'Doc No#'
          TabOrder = 1
          object lblForDoc: TLabel
            Left = 7
            Top = 34
            Width = 84
            Height = 13
            Caption = 'Format Document'
          end
          object lblLength: TLabel
            Left = 7
            Top = 71
            Width = 33
            Height = 13
            Caption = 'Length'
          end
          object lblFormat: TLabel
            Left = 80
            Top = 71
            Width = 32
            Height = 13
            Caption = 'Format'
          end
          object ckDocno: TDBCheckBox
            Left = 6
            Top = 16
            Width = 148
            Height = 17
            Caption = 'Auto Document NO#'
            DataField = 'autodocno'
            DataSource = dsConfig
            TabOrder = 0
            ValueChecked = '1'
            ValueUnchecked = '0'
          end
          object DBComboBox3: TDBComboBox
            Left = 6
            Top = 48
            Width = 113
            Height = 22
            Style = csOwnerDrawFixed
            DataField = 'fmtype'
            DataSource = dsConfig
            ItemHeight = 16
            Items.Strings = (
              'Text'
              'Date')
            TabOrder = 1
          end
          object ckFixFor: TDBCheckBox
            Left = 123
            Top = 49
            Width = 97
            Height = 17
            Caption = 'Fix Format'
            DataField = 'fixlen'
            DataSource = dsConfig
            TabOrder = 2
            ValueChecked = '1'
            ValueUnchecked = '0'
          end
          object DBEdit14: TDBEdit
            Left = 6
            Top = 86
            Width = 56
            Height = 21
            DataField = 'fmlen'
            DataSource = dsConfig
            TabOrder = 3
            OnEnter = DBEdit2Enter
            OnExit = DBEdit2Exit
          end
          object DBEdit15: TDBEdit
            Left = 67
            Top = 86
            Width = 121
            Height = 21
            DataField = 'fmdatedoc'
            DataSource = dsConfig
            TabOrder = 4
            OnEnter = DBEdit2Enter
            OnExit = DBEdit2Exit
          end
        end
      end
    end
  end
  object dsConfig: TDataSource
    DataSet = qrConfig
    OnDataChange = dsConfigDataChange
    Left = 380
    Top = 3
  end
  object PopupMenu1: TPopupMenu
    Images = dm.ImageList1
    Left = 500
    Top = 122
    object AddPicture1: TMenuItem
      Caption = 'Add Picture'
      ImageIndex = 2
      OnClick = AddPicture1Click
    end
    object ClearPicture1: TMenuItem
      Caption = 'Clear Picture'
      ImageIndex = 1
      OnClick = ClearPicture1Click
    end
  end
  object qrConfig: TZQuery
    Connection = dm.cnDB
    CachedUpdates = True
    SQL.Strings = (
      'select * from config')
    Params = <>
    Left = 350
    Top = 4
  end
  object qrLang: TZReadOnlyQuery
    Connection = dm.cnDB
    SQL.Strings = (
      'select fd, messag from messageshow'
      'where (tb='#39'CF'#39')and(lang=:lang)')
    Params = <
      item
        DataType = ftUnknown
        Name = 'lang'
        ParamType = ptUnknown
      end>
    Left = 314
    Top = 251
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'lang'
        ParamType = ptUnknown
      end>
  end
  object qrAuthorize: TZQuery
    Connection = dm.cnDB
    SQL.Strings = (
      
        'select * from authorize where (loginname=:loginname)and(rightsgr' +
        'p=:rightsgrp)')
    Params = <
      item
        DataType = ftUnknown
        Name = 'loginname'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'rightsgrp'
        ParamType = ptUnknown
      end>
    Left = 359
    Top = 255
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'loginname'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'rightsgrp'
        ParamType = ptUnknown
      end>
  end
end
